## Figure 5: Examples of Differential Demand by Month and Neighborhood Income

## install.packages(c("tidyverse"))
## library(tidyverse)

## SET WORKING DIRECTORY HERE
## setwd()

## Loading data
## load("demand.RData")

## Figure 5a
sf_street_income = demand %>%
  filter(city_service == "San Francisco - Street and Sidewalk Cleaning") %>%
  mutate(month_year = paste(open_month, open_year, sep = "-"),
         month_year = factor(month_year, levels = c("1-2011", "2-2011", 
                                                    "3-2011", "4-2011",
                                                    "5-2011", "6-2011",
                                                    "7-2011", "8-2011",
                                                    "9-2011", "10-2011",
                                                    "11-2011", "12-2011",
                                                    "1-2012", "2-2012", 
                                                    "3-2012", "4-2012",
                                                    "5-2012", "6-2012",
                                                    "7-2012", "8-2012",
                                                    "9-2012", "10-2012",
                                                    "11-2012", "12-2012",
                                                    "1-2013", "2-2013", 
                                                    "3-2013", "4-2013",
                                                    "5-2013", "6-2013",
                                                    "7-2013", "8-2013",
                                                    "9-2013", "10-2013",
                                                    "11-2013", "12-2013",
                                                    "1-2014", "2-2014", 
                                                    "3-2014", "4-2014",
                                                    "5-2014", "6-2014",
                                                    "7-2014", "8-2014",
                                                    "9-2014", "10-2014",
                                                    "11-2014", "12-2014",
                                                    "1-2015", "2-2015", 
                                                    "3-2015", "4-2015",
                                                    "5-2015", "6-2015",
                                                    "7-2015", "8-2015",
                                                    "9-2015", "10-2015",
                                                    "11-2015", "12-2015",
                                                    "1-2016", "2-2016", 
                                                    "3-2016", "4-2016",
                                                    "5-2016", "6-2016",
                                                    "7-2016", "8-2016",
                                                    "9-2016", "10-2016",
                                                    "11-2016", "12-2016",
                                                    "1-2017", "2-2017", 
                                                    "3-2017", "4-2017",
                                                    "5-2017", "6-2017",
                                                    "7-2017", "8-2017",
                                                    "9-2017", "10-2017",
                                                    "11-2017", "12-2017",
                                                    "1-2018", "2-2018", 
                                                    "3-2018", "4-2018",
                                                    "5-2018", "6-2018",
                                                    "7-2018", "8-2018",
                                                    "9-2018", "10-2018",
                                                    "11-2018", "12-2018",
                                                    "1-2019", "2-2019", 
                                                    "3-2019", "4-2019",
                                                    "5-2019", "6-2019",
                                                    "7-2019", "8-2019",
                                                    "9-2019", "10-2019",
                                                    "11-2019", "12-2019"))) %>%
  ggplot(aes(x = month_year, y = poor_demand)) +
  geom_bar(stat = "identity", color="black", fill="gray") +
  scale_x_discrete(labels = c("1-2011", "", "", "", "", "", "7-2011", "", "", "", "", "",
                              "1-2012", "", "", "", "", "", "7-2012", "", "", "", "", "",
                              "1-2013", "", "", "", "", "", "7-2013", "", "", "", "", "",
                              "1-2014", "", "", "", "", "", "7-2014", "", "", "", "", "",
                              "1-2015", "", "", "", "", "", "7-2015", "", "", "", "", "",
                              "1-2016", "", "", "", "", "", "7-2016", "", "", "", "", "",
                              "1-2017", "", "", "", "", "", "7-2017", "", "", "", "", "",
                              "1-2018", "", "", "", "", "", "7-2018", "", "", "", "", "",
                              "1-2019", "", "", "", "", "", "7-2019", "", "", "", "", "")) +
  labs(x = "Month-Year",
       y = "% Requests from Poor \n - % Requests from Rich") +
  theme_classic() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        panel.background = element_rect(colour = "black"))

## Figure 5b
austin_graffiti_income = demand %>%
  filter(city_service == "Austin - Graffiti Abatement") %>%
  mutate(month_year = paste(open_month, open_year, sep = "-"),
         month_year = factor(month_year, levels = c("1-2014", "2-2014", 
                                                    "3-2014", "4-2014",
                                                    "5-2014", "6-2014",
                                                    "7-2014", "8-2014",
                                                    "9-2014", "10-2014",
                                                    "11-2014", "12-2014",
                                                    "1-2015", "2-2015", 
                                                    "3-2015", "4-2015",
                                                    "5-2015", "6-2015",
                                                    "7-2015", "8-2015",
                                                    "9-2015", "10-2015",
                                                    "11-2015", "12-2015",
                                                    "1-2016", "2-2016", 
                                                    "3-2016", "4-2016",
                                                    "5-2016", "6-2016",
                                                    "7-2016", "8-2016",
                                                    "9-2016", "10-2016",
                                                    "11-2016", "12-2016",
                                                    "1-2017", "2-2017", 
                                                    "3-2017", "4-2017",
                                                    "5-2017", "6-2017",
                                                    "7-2017", "8-2017",
                                                    "9-2017", "10-2017",
                                                    "11-2017", "12-2017",
                                                    "1-2018", "2-2018", 
                                                    "3-2018", "4-2018",
                                                    "5-2018", "6-2018",
                                                    "7-2018", "8-2018",
                                                    "9-2018", "10-2018",
                                                    "11-2018", "12-2018",
                                                    "1-2019", "2-2019", 
                                                    "3-2019", "4-2019",
                                                    "5-2019", "6-2019",
                                                    "7-2019", "8-2019",
                                                    "9-2019", "10-2019",
                                                    "11-2019", "12-2019"))) %>%
  ggplot(aes(x = month_year, y = poor_demand)) +
  geom_bar(stat = "identity", color="black", fill="gray") +
  scale_x_discrete(labels = c("1-2014", "", "", "", "", "", "7-2014", "", "", "", "", "",
                              "1-2015", "", "", "", "", "", "7-2015", "", "", "", "", "",
                              "1-2016", "", "", "", "", "", "7-2016", "", "", "", "", "",
                              "1-2017", "", "", "", "", "", "7-2017", "", "", "", "", "",
                              "1-2018", "", "", "", "", "", "7-2018", "", "", "", "", "",
                              "1-2019", "", "", "", "", "", "7-2019", "", "", "", "", "")) +
  labs(x = "Month-Year",
       y = "% Requests from Poor \n - % Requests from Rich") +
  theme_classic() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        panel.background = element_rect(colour = "black"))